(desktop-save): Don't use concat to form a file

name, use expand-file-name.

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 3286b195facb12811cfaed36112fbd72d523b1d3..bbb5fa864ca214c1a5f3093290a0bc4f1c9c7b9b 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -475,8 +475,7 @@ MODE is the major mode."
   (interactive "DDirectory to save desktop file in: ")
   (run-hooks 'desktop-save-hook)
   (save-excursion
-    (let ((filename (expand-file-name
-                    (concat dirname desktop-basefilename)))
+    (let ((filename (expand-file-name desktop-basefilename dirname))
          (info (nreverse
                 (mapcar
                  (function